unit uClassePesquisa;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils , contnrs;

type

  { TPesquisa }

  TPesquisa = class

  private
    FCampoRetorno: string;
    FCaptionFormPesquisa: string;
    procedure SetCampoRetorno(AValue: string);
    procedure SetCaptionFormPesquisa(AValue: string);

  public
    property CaptionFormPesquisa: string read FCaptionFormPesquisa write SetCaptionFormPesquisa;
    property CampoRetorno: string read FCampoRetorno write SetCampoRetorno;
    procedure CriarFormPesquisa;
    function ObterRetornoPesquisa : Variant;


  end;

implementation

{ TPesquisa }

procedure TPesquisa.SetCampoRetorno(AValue: string);
begin
  if FCampoRetorno=AValue then Exit;
  FCampoRetorno:=AValue;
end;

procedure TPesquisa.SetCaptionFormPesquisa(AValue: string);
begin
  if FCaptionFormPesquisa=AValue then Exit;
  FCaptionFormPesquisa:=AValue;
end;

procedure TPesquisa.CriarFormPesquisa;
begin

end;

function TPesquisa.ObterRetornoPesquisa: Variant;
begin

end;

end.

